home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / enhanced demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  86 lines
  1. 50 remsave"@0:enhanced demo2",8
  2. 60 rem***********
  3. 70 rem to run this demo program, reset computer, type   load"enh*",8
  4. 80 rem and then press enter. then type run and press enter.
  5. 90 rem***********
  6. 100 onlgoto340,590,720:rem because each load causes restart
  7. 110 l=1
  8. 120 poke53281,0:rem black backgrd
  9. 130 print"[147][158]"chr$(14):rem clr,yellow,lower case
  10. 135 ifpeek(777)=167goto140:rem igone=def val
  11. 137 print"!!! shut off computer(to reset)before running this":stop
  12. 140 print""
  13. 190 print"     [201]ntroducing  enhanced [195][193][196]-[205]
  14. 200 [153]
  15. 210 [153]
  16. 220 [153]"    (NULL)his program demonstrates the
  17. 230 print"         the dramatic color fill
  18. 240 [153]"    capabilities of "[199](34)"enhanced lenatnstr$-(NULL)"[199](34)
  19. 250 [153]
  20. 260 [153]"(remove any fast-load cartridges before
  21. 270 print" running this program, and if you are
  22. 280 [153]"      using a len128 computer,
  23. 290 print"       set it to [195]64 mode)
  24. 300 [153]
  25. 310 [153]"(NULL)lease wait, program loading
  26. 320 load"co2r",8,1
  27. 330 forn=0to2000:next
  28. 340 l=l+1 :rem do this just after a load
  29. 350 print"[147][212]he demo program now being loaded is an
  30. 360 [153]"enhanced version of lenatnstr$-(NULL) version 2.0
  31. 370 print"that is supplied on this disc.
  32. 380 [153]"                ***
  33. 390 print"[212]he enhanced [195][193][196]-[205] version 3.0 includes
  34. 400 [153]"len(NULL)(NULL)(NULL)(NULL)closeascright$(NULL)(NULL)(NULL) and left$right$str$str$val(NULL)close(NULL)(NULL)(NULL)ascatnlenval (NULL)val(NULL)(NULL)(NULL)atn(NULL),
  35. 410 print"and is compatible with all files made
  36. 420 [153]"with lenatnstr$-(NULL) version 2.0.
  37. 430 print"                ***
  38. 440 [153]"atn "[199](18)"lenatnstr$-(NULL) version 3.0"[199](146) " disk and manual is
  39. 450 print"available from:
  40. 460 [153]
  41. 470 [153]"(NULL)(NULL)vallenright$atn(NULL)-(NULL)-chr$(NULL)atn(NULL)left$right$len(NULL)closeright$(NULL)len."
  42. 480 [153]"1252 (NULL)harf (NULL)treet,
  43. 490 print"[214]ictoria, [194].[195]., [195][193][206][193][196][193]"
  44. 500 print"[214]8[215] 1[212]8                [208]h.(604) 386-1445
  45. 510 [153]"(NULL)anual & disk: $24.95 (NULL).(NULL).
  46. 520 print"           or  $29.95 [195]anadian
  47. 530 [153]"(NULL)rice includes postage.
  48. 540 print"[211]atisfaction guaranteed or money back.
  49. 550 [153]"lenheque, (NULL)isa or (NULL)astercard.
  50. 560 print
  51. 570 print"        "chr$(18)"[204][207][193][196][201][206][199]-[215][193][201][212] 1 min."chr$(146)
  52. 580 load"co2z",8,1
  53. 590 l=l+1 :rem do this just after a load
  54. 600 rem the following loads co2p
  55. 610 a$="co2p"
  56. 620 forn=1 to len(a$)
  57. 630 poke 820+(n-1),asc(mid$(a$,n,1)):next
  58. 640 a=780:rem .a reg
  59. 650 x=781
  60. 660 y=782
  61. 670 p=783
  62. 680 poke a,1:pokex,8:pokey,0:sys65466:rem setlfs
  63. 690 poke a,len(a$):pokex,820and255:pokey,820/256:sys65469:rem setnam
  64. 700 poke a,0:pokex,0:pokey,224:sys65493:rem load at $e000
  65. 710 load"ol2z*",8,1
  66. 720 l=l+1
  67. 730 poke 55,6435and255:poke56,6435/255:rem set memsiz=$1923
  68. 740 rem now sys$9700
  69. 750 sys38656
  70. 760 xx
  71. 770 print"here is the cad-m logo in full, solid colors.
  72. 780 cad:ld"cad-m logo"
  73. 790 co:sf:m[170]:p3
  74. 800 xx
  75. 810 [153]"with enhanced cad-m version 3.0, you
  76. 820 print"can instantly view your work as it
  77. 830 [153]"would appear in solid real life.";
  78. 840 [129]t[178]0[164]5000:[130] t:[143] time delay
  79. 850 cad:rl:rd:rd:rd:rd:rd:rd:rd:rd:rd:rd:rd:rd:rd:rd:xx
  80. 860 [153][199](14)"you can outline the surfaces for
  81. 870 print"clarity.
  82. 880 cad:o[170]:rd:rd:rd:rd:xx
  83. 890 [153]"do you like big juicy spiders?
  84. 900 cad:ld"spider":co:m+:o-:rr:rr:rr:rr:rr:rr:rr:rr:rr:rr:rr:rr:rr:rr:rr:rr:xx
  85. 910 print"end of demo";
  86.